home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / MOS / MOREIO.D < prev    next >
Encoding:
Modula Definition  |  1990-10-09  |  2.1 KB  |  64 lines
  1. DEFINITION MODULE MoreIO;
  2.  
  3. (* ----------------------------------------------------------------------------
  4.  * AUTOR:    Dieter Hametner
  5.  * ERSTELLT: 01.04.90 mit Megamax Modula-2 V2.2
  6.  * ----------------------------------------------------------------------------
  7.  * BESCHREIBUNG:
  8.  * Dieses Modul stellt eine Erweiterung des Moduls TOSIO dar. Der Quelltext
  9.  * von TOSIO ist fast vollstaendig erhalten geblieben.
  10.  * (Dank an Thomas Tempelmann!)
  11.  *
  12.  * Konfiguriert den gesamten TOS-Bildschirm als Ausgabemedium für die
  13.  * Funktionen aus 'InOut'.
  14.  *
  15.  * Das Modul wacht über die Zeilenumschaltungen (LF) und verhält sich
  16.  * wie das Dateienansehen des Desktops. (Ähnlich dem von UNIX bekannten MORE)
  17.  *
  18.  * Die Ein-/Ausgaben erfolgen durch Verwendung des 'Terminal'-Moduls
  19.  * direkt über die BIOS-Routinen.
  20.  *
  21.  * Achtung: Wird dieses Modul statt 'GEMIO' eingebunden, dürfen keine
  22.  * GEM-Funktionen verwendet werden !
  23.  *
  24.  * Das gelinkte Programm sollte als Dateiendung 'TOS' oder 'TTP' statt 'PRG'
  25.  * erhalten.
  26.  *
  27.  * Sollen die InOut-Ausgaben eines Programms auch unter der Shell über
  28.  * den TOS-Bildschirm gehen, so ist dies Modul dort direkt vor (!)
  29.  * dem InOut-Modul zu importieren. Desweiteren ist die Endung des Moduls
  30.  * durch Verwendung der $E-Compileroption auf "MOS" bzw. "MTP" einzustellen.
  31.  *
  32.  * Beispiel:
  33.  *
  34.  *   MODULE Test; (*$E MOS *)
  35.  *     IMPORT MOREIO;
  36.  *     FROM InOut IMPORT Write, Read, WriteString;
  37.  *   ... usw.
  38.  *)
  39.  
  40. PROCEDURE ScrollOn;
  41. PROCEDURE ScrollOff;
  42.    
  43.    (* Durch diese Prozeduren kann man im Programm bestimmen ob 'MOREIO'
  44.     * aktiv ist ('ScrollOn') oder nicht ('ScrollOff').
  45.     *
  46.     * Defaulteinstellung: ScrollOff;
  47.     *
  48.     * Drückt man eine beliebige Taste während 'MOREIO' nicht aktiv ist,
  49.     * wird 'MOREIO' sofort aktiviert.
  50.     *)
  51.  
  52. PROCEDURE ScreenOff;
  53. PROCEDURE ScreenOn;
  54.  
  55.    (* 'ScreenOff' unterdrückt alle Ausgaben bis eine beliebige Taste
  56.     * gedrückt wird. Beim Aufruf einer Eingabefunktion wird die Ausgabe
  57.     * automatisch wieder eingeschaltet.
  58.     *
  59.     * Mit 'ScreenOn' kann die Ausgabe auch aus dem Programm eingeschaltet
  60.     * werden.
  61.     *)
  62.  
  63. END MoreIO.
  64.